home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
program
/
misc
/
tri14dev.lha
/
Triton
/
Developer
/
DemoSource
/
progind.c
< prev
next >
Wrap
C/C++ Source or Header
|
1995-08-25
|
4KB
|
131 lines
/*
* Triton - The object oriented GUI creation system for the Amiga
* Written by Stefan Zeiger in 1993-1995
*
* (c) 1993-1995 by Stefan Zeiger
* You are hereby allowed to use this source or parts
* of it for creating programs for AmigaOS which use the
* Triton GUI creation system. All other rights reserved.
*
* progind.c - Progress indicator demo
*
*/
/* /////////////////////////////////////////////////////////////////////////////////////////////////////// */
/* ////////////////////////////////////////////////////////////////////////////////// Include our stuff // */
/* /////////////////////////////////////////////////////////////////////////////////////////////////////// */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <libraries/triton.h>
#ifdef __GNUC__
#ifndef __OPTIMIZE__
#include <clib/triton_protos.h>
#include <clib/dos_protos.h>
#include <clib/intuition_protos.h>
#else
#include <inline/triton.h>
#include <inline/dos.h>
#include <inline/intuition.h>
#endif /* __OPTIMIZE__ */
#else
#include <proto/triton.h>
#include <proto/dos.h>
#include <proto/intuition.h>
#endif /* __GNUC__ */
/* /////////////////////////////////////////////////////////////////////////////////////////////////////// */
/* ////////////////////////////////////////////////////////////////////////////////////// Window 'main' // */
/* /////////////////////////////////////////////////////////////////////////////////////////////////////// */
enum IDs {ID_MAIN_GADGET_STOP=1, ID_MAIN_PROGIND};
VOID do_main(VOID)
{
BOOL close_me=FALSE;
struct TR_Message *trmsg;
struct TR_Project *project;
ULONG i;
if(project=TR_OpenProjectTags(Application,
WindowID(1),
WindowTitle("Progress Indicator Demo"),
WindowPosition(TRWP_CENTERDISPLAY),
WindowFlags(TRWF_NOCLOSEGADGET|TRWF_NOESCCLOSE),
VertGroupA,
Space, CenteredText("Working..."),
Space, HorizGroupA,
Space, Progress(100,0,ID_MAIN_PROGIND), /* A per cent progress indicator */
Space, EndGroup,
SpaceS,HorizGroupA,
Space, HorizGroupSA, TextN("000%"), Space, TextN("050%"), Space, TextN("100%"), EndGroup,
Space, EndGroup,
Space, HorizGroupSA,
Space, ButtonE("_Stop",ID_MAIN_GADGET_STOP),
Space, EndGroup,
Space, EndGroup,
EndProject))
{
for(i=0;(i<100)&&(!close_me);i++)
{
/* Wait 1/5 second. You might want to do some real work here ;) */
Delay(10L);
/* Display our progress */
TR_SetAttribute(project,ID_MAIN_PROGIND,TRAT_Value,i);
/* And Check for the 'Stop' gadget. Note that you always have to include
such a TR_GetMsg() loop, even if there's no gadget for stopping. You
have to call TR_GetMsg() regularly so that Triton may react on the
user's wishes, e.g. redrawing the window contents after a resize. */
while(trmsg=TR_GetMsg(Application))
{
if(trmsg->trm_Project==project) switch(trmsg->trm_Class)
{
case TRMS_CLOSEWINDOW:
close_me=TRUE;
break;
case TRMS_ERROR:
puts(TR_GetErrorString(trmsg->trm_Data));
break;
case TRMS_ACTION:
if(trmsg->trm_ID==ID_MAIN_GADGET_STOP) close_me=TRUE;
}
TR_ReplyMsg(trmsg);
}
}
TR_CloseProject(project);
}
else puts("Can't open window.");
}
/* /////////////////////////////////////////////////////////////////////////////////////////////////////// */
/* ////////////////////////////////////////////////////////////////////////////////////// Main function // */
/* /////////////////////////////////////////////////////////////////////////////////////////////////////// */
int main(void)
{
if(TR_OpenTriton(TRITON11VERSION,TRCA_Name,"trProgIndDemo",TRCA_Version,"1.0",TAG_END))
{
do_main();
TR_CloseTriton();
return 0;
} else puts("Can't open triton.library v2+.");
return 20;
}